home *** CD-ROM | disk | FTP | other *** search
/ Quarterdeck InternetSuite / Quarterdeck InternetSuite.iso / qsockpro.qip / BECKEMEY.MPS < prev    next >
Encoding:
Text File  |  1996-03-20  |  1.3 KB  |  67 lines
  1. # Beckemeyer Development PPP preferred, SLIP alternate script
  2. # Copyright 1995 Quarterdeck Corporation
  3. # 5-8-95 JK
  4. # Modified 5-9-95 CEL
  5.  
  6. STRING username
  7. STRING password
  8. STRING framing
  9. STRING IPAddress
  10.  
  11. # uncomment for debugging
  12. # TRACE ON
  13.  
  14. SetTimeOut 90
  15.  
  16. CfgGetValue "Username" username
  17. IF result = 0 THEN
  18.     GetInput "Enter your username:" username
  19.     IF result = 0 THEN
  20.         PRINT "Warning, no username entered."
  21.     ELSE
  22.         PRINT "Username set to: ";username
  23.     ENDIF
  24. ENDIF
  25.  
  26. CfgGetValue "Password" password
  27. IF result = 0 THEN
  28.     GetPassword "Enter your password:" password
  29.     IF result = 0 THEN
  30.         PRINT "Warning, no password entered."
  31.     ELSE
  32.         PRINT "Password set."
  33.     ENDIF
  34. ENDIF
  35.  
  36. CfgGetValue "Framing" framing
  37. IF result =0 THEN
  38.     ABORT "Cannot load framing value from QDECK.INI!"
  39. ENDIF
  40.  
  41. CommWaitFor "login:"
  42. IF framing = "MPPPP" THEN
  43.     CommSend "P"
  44. ELSE
  45.     CommSend "S"
  46. ENDIF        
  47.  
  48. CommSend username
  49. CommSend "%r"
  50.  
  51. CommWaitFor "password:"
  52.     CommSend password
  53.     CommSend "%r"
  54.  
  55. IF framing = "MPSLIP" THEN
  56.     PRINT "Getting IP Address for SLIP."
  57.     CommWaitFor ") to"
  58.     CommReadIPAddr IPAddress
  59.     IF result < 7 THEN                     # IP Address length test
  60.         ABORT "Missing or invalid IP Address."
  61.     ENDIF
  62.     CfgSetValue "IPAddress" ipaddress
  63.     PRINT "IP Address set to:"; ipaddress
  64. ENDIF
  65.  
  66. END
  67.